home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / time2.arc / TIME2.BAS (.txt) next >
Encoding:
GW-BASIC  |  1986-12-01  |  744 b   |  23 lines
  1. 10  KEY OFF:SCREEN 0:WIDTH 80:COLOR 3,0:CLS
  2. 20  COLOR 7,0:LOCATE 3,33:PRINT "Jonathan's Clock"
  3. 30  COLOR 4,0:LOCATE 5,36:PRINT DATE$
  4. 40  COLOR 3,0
  5. 50  LOCATE 9,30:PRINT "SECONDS PAST MIDNIGHT:"
  6. 60  LOCATE 12,28:PRINT "CURRENT TIME (24 HR CLOCK):"
  7. 70  LOCATE 15,28:PRINT "CURRENT TIME (12 HR CLOCK):"
  8. 80  COLOR 6,0:LOCATE 22,31:PRINT "press any key to exit"
  9. 90  COLOR 1,0:LOCATE 7,26:PRINT "KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  10. 100  FOR Y=8 TO 17:LOCATE Y,26:PRINT "OPEN";:LOCATE Y,56:PRINT "OPEN";:NEXT Y
  11. 110  LOCATE 18,26:PRINT "SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  12. 120  IF INKEY$<>"" THEN LOCATE 24,1:END
  13. 130  COLOR 2,0:LOCATE 13,37:PRINT TIME$
  14. 140  IF VAL(LEFT$(TIME$,2))<13 THEN TH$=TIME$:APM$="am  " ELSE 170
  15. 150  IF LEFT$(TH$,2)="00" THEN TH$="12"+MID$(TIME$,3,8)
  16. 160  GOTO 190
  17. 170  A=VAL(LEFT$(TIME$,2)):Z=A-12:Z$=STR$(Z)
  18. 180  TH$=Z$+MID$(TIME$,3,8):APM$="pm  "
  19. 190  LOCATE 16,37:PRINT TH$+APM$
  20. 200  COLOR 4,0
  21. 210  LOCATE 10,37:PRINT USING "#####.##";TIMER
  22. 220  IF INT(TIMER)<>LAST THEN LAST=INT(TIMER):GOTO 120 ELSE 210
  23.